home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
biz
/
dbase
/
EV30F.lha
/
EasyVideo
/
Install-EasyVideo
< prev
next >
Wrap
Text File
|
1995-06-15
|
5KB
|
222 lines
; Installations script für EasyVideo
(set @default_dest "SYS:EasyVideo")
; Fehler / Cleanup
(onerror
(makeassign "EasyVideo" (safe))
)
; schauen ob updatet
(set is_update 0)
(set EVideo_dest (getassign "EasyVideo" "a"))
; Wenn Update, ob überschreiben
(if EVideo_dest
; then
(if (askbool
(prompt "Ihr EasyVideo befindet sich schon im Verzeichnis \""
EVideo_dest
"\". Möchten Sie in dieses Verzeichnis updaten?"
)
(help
"Der Installer hat schon eine Kopie von EasyVideo entdeckt. Soll "
"diese Installation erhalten werden oder möchten Sie ein Update (YES) ? "
)
(default 1)
)
(set is_update 1) ; if user wants in same place
(set EVideo_dest ; if user wants in different place
(askdir
(prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
(help @askdir-help)
(default "SYS:EasyVideo")
)
)
)
; else
(
(set EVideo_dest
(askdir
(prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
(help @askdir-help)
(default "SYS:EasyVideo")
)
)
)
)
(if (not (exists EVideo_dest) )
(makedir EVideo_dest (prompt "Erstelle Direktory") (infos) (confirm) (help) )
)
(makeassign "EasyVideo" EVideo_dest (safe))
(makeassign "VideoInstallDisk" "" (safe))
; Make EasyVideo drawer & icon if not there
(if (not is_update)
(makedir EVideo_dest (infos))
)
(set @default-dest EVideo_dest)
(copyfiles
(source "VideoInstallDisk:")
(pattern "EasyVideo#?")
(dest EVideo_dest)
)
(copyfiles
(source "VideoInstallDisk:MyVideo.dat")
(dest EVideo_dest)
)
(copyfiles
(source "VideoInstallDisk:Doku")
(dest (tackon EVideo_dest "Doku") )
(all)
(infos)
)
(copyfiles
(source "VideoInstallDisk:Doku.info")
(dest EVideo_dest)
)
(copyfiles
(source "VideoInstallDisk:Rexx")
(dest (tackon EVideo_dest "Rexx") )
(all)
(infos)
)
( if (EXISTS("S:Video.config"))
(set copy_oldprefs
(askbool (prompt "Standardeinstellungen S:Video.config überschreiben?")
(help "Ja, existierendes Konfigurationsfile in S: wird überschrieben. "
)
)
)
)
( if copy_oldprefs
( copyfiles
(source "VideoInstallDisk:S/Video.config")
(dest "S:" )
(infos)
)
( transcript "Standardeinstellungsfile Video.config wird nicht nach S: kopiert." )
)
( if (EXISTS("EnvArc:Video.config"))
(set copy_prefs
(askbool (prompt "Standardeinstellungen EnvArc:Video.config überschreiben?")
(help "Ja, existierende Konfigurationsfile in EnvArc: wird überschrieben. "
)
)
)
( set copy_prefs 1 )
)
( if copy_prefs
( copyfiles
(source "VideoInstallDisk:S/Video.config")
(dest "EnvArc:" )
(infos)
)
( transcript "Standardeinstellungsfile Video.config wird nicht nach ENVARC: kopiert." )
)
( if (EXISTS "VideoInstallDisk:libs/amigaguide.library" (noreq))
(
(working "Installiere AmigaGuide...")
(copylib
(source "VideoInstallDisk:libs/amigaguide.library")
(dest "LIBS:")
)
(copyfiles
(source "VideoInstallDisk:c/amigaguide")
(dest "C:")
(infos)
)
)
)
( if (EXISTS "VideoInstallDisk:libs/asl.library" (noreq))
(
(working "Aktualisiere LIBS:...")
(copylib
(source "VideoInstallDisk:libs/explode.library")
(dest "LIBS:")
)
(copylib
(source "VideoInstallDisk:libs/rexxsupport.library")
(dest "LIBS:")
)
(copylib
(source "VideoInstallDisk:libs/rexxsyslib.library")
(dest "LIBS:")
)
(copylib
(source "VideoInstallDisk:libs/asl.library")
(dest "LIBS:")
)
(copylib
(source "VideoInstallDisk:libs/mathffp.library")
(dest "LIBS:")
)
(copylib
(source "VideoInstallDisk:libs/mathieeedoubbas.library")
(dest "LIBS:")
)
(copylib
(source "VideoInstallDisk:libs/mathieeedoubtrans.library")
(dest "LIBS:")
)
)
)
(working "Copiere Fonts...")
(copylib
(source "VideoInstallDisk:libs/diskfont.library")
(dest "LIBS:")
)
(copyfiles
(source "VideoInstallDisk:fonts")
(dest "FONTS:")
(all)
(infos)
)
(working "")
; modify S:User-Startup
(startup "EasyVideo"
(prompt
"Ich definiere ein Assign für EasyVideo in der \"S:user-startup\" "
"Als Direktory kann in der Konfiguration dann \"EasyVideo:\" angegeben werden."
(help "Ist besser so!")
(command "ASSIGN Video: \"" EVideo_dest "\"")
)
)
; reinitialize assigns
(makeassign "EasyVideo" EVideo_dest)
(complete 100)
; cleanup
(makeassign "VideoInstallDisk" (safe))
(exit)